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<HTML> 

<SCRIPT language="VBScript"> 

<! — #INCLUDE FILE="Cardsounyuu.asp"— > 

<! — #1NCLUDE FILE="AnshouNyuuryoku.asp" — > 

<! — #f NCLUDE FILE="HostSoujushin.asp"— > 

<!— #INCLUDE FILE= n 2andakasHyouji.asp M -> 

<!-#INCLUDE FILE="BeitaiUketori.asp"— > 

<!— #INCLUDE FILE="Seikaishi.asp"-> 

<!— #INCLUDE FILE="Shougai.asp"— > 



Sub Manager (ManagerlD, ContentsParts, Code) 
If (Code="Fault") then 

Shougai "Start'V'Balance Check" 
End If 

Select Case Manager ID 
Case "Balance Inquiry" 

Select Case ContentsParts 
Case "Start" 

CardSounyuu "Start'V'Balance Check" 
Case "Waiting For Card Insertion" 
Select Case Code 
Case "End Of Process" 

AnshouNyuuryoku "Start", "Balanced Check" 
Case "Restart" 
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End Select 
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Select Case Code 
Case "End Of Process" 
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Case "Restart" 

Saikaishi "Start" , "Blanced Check" 
End Select 
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Select Case Code 
Case "End Of Process" 
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Case "Restart" 

Saikaishi "Start", "Balance Inquiry" 
End Select 
Case "Balanced Display" 
Select Case Code 
Case "End Of Process" 

BaitaiUketori "Start", "Balance Inquiry" 
Case "Restart" 

Saikaishi "Start", "Balance Inquiry" 
End Select 
Case Waiting For Medium Reception 
Select Case Code 
End Select 
End Select 
Case "Restart" 
Select Case Code 
End Select 
End Select 
End Select 
End Sub 
</SCRIPT> 
</HTML> 
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top. View, iocation="CardSounyuu2Gamen.htm]" 
Case Else 
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End Select 
Case "Card Insertion Wating Image 2" 
Select Case Code 
Case "End Of Process" 

top. View, location = "CardSounyuu3Gamen.htm]" 
Case Else 

top.Manager.Manager Session ("YobidashiManager") , "Wating For Card insertion" Code 
End Select 
Case "Card Insertion Wating Image 3" 
Select Case Card 
Case Else 

top.Manager.Manager Session ("YobidashiManager") ,"Wating For Card insertion" Code 
End Select 
Case Else 

top.Manager.Manager Session ("YobidashiManager"), "Wating For Card insertion" Code 
End Select 
End Sub 
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